home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / primes.bas < prev    next >
BASIC Source File  |  1979-12-31  |  640b  |  18 lines
  1. 100 CLS: KEY OFF: DEFINT A-Z
  2. 110 INPUT "Primes up to: ",N
  3. 115 CLS: DIM M(N): MASK$=STRING$(LEN(STR$(N)),"#")
  4. 120 T1$=TIME$    'start timing
  5. 130 FOR C=2 TO N
  6. 140    IF M(C) THEN 190
  7. 150    PRINT USING MASK$; C;
  8. 160    FOR L=C*2 TO N STEP C
  9. 170        M(L)=1 'tag array location
  10. 180    NEXT L
  11. 190 NEXT C
  12. 200 T2$=TIME$    'stop timing
  13. 205 PRINT: PRINT
  14. 210 T1#=3600*VAL(MID$(T1$,1,2))+60*VAL(MID$(T1$,4,2))+VAL(MID$(T1$,7,2))
  15. 220 T2#=3600*VAL(MID$(T2$,1,2))+60*VAL(MID$(T2$,4,2))+VAL(MID$(T2$,7,2))
  16. 230 PRINT "Calculations took ";T2#-T1#;" seconds."
  17. 240 END
  18.